object Dm: TDm
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 631
  Width = 651
  PixelsPerInch = 120
  object AppServer: TAppServer
    Host = '120.76.245.231'
    Port = 212
    ReadTimeout = 600000
    Left = 40
    Top = 30
  end
  object crsExec: TClientRowSet
    Aggregates = <>
    CommandText = 
      'SELECT * FROM sys_user WHERE user_no='#39'YHLEXP'#39' AND disabled=0 and' +
      ' plat_code='#39'XYEXPRESS'#39
    AppServer = AppServer
    Left = 40
    Top = 110
  end
  object crsAction: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    Left = 40
    Top = 190
  end
  object crsDict: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_dict_detail'
    Left = 130
    Top = 30
  end
  object crsProvince: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    Left = 220
    Top = 30
  end
  object crsCity: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    Left = 220
    Top = 100
  end
  object crsDistrict: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    Left = 220
    Top = 170
  end
  object crsNode: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_group_node'
    Left = 320
    Top = 30
  end
  object crsRegion: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_region'
    Left = 40
    Top = 270
  end
  object crsCargoType: TClientRowSet
    Aggregates = <>
    CommandText = 'SELECT paramcap,dvalue FROM sys_dict_detail'
    AppServer = AppServer
    Left = 320
    Top = 100
    object crsCargoTypePARAMCAP: TStringField
      FieldName = 'PARAMCAP'
      Size = 50
    end
    object crsCargoTypeDVALUE: TStringField
      FieldName = 'DVALUE'
      Size = 50
    end
  end
  object crsFunc: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'tol_function'
    Left = 40
    Top = 340
    object crsFuncFUNC_ID: TStringField
      FieldName = 'FUNC_ID'
      Size = 50
    end
    object crsFuncFUNC_NAME: TStringField
      FieldName = 'FUNC_NAME'
      Size = 50
    end
    object crsFuncCAPTION: TStringField
      FieldName = 'CAPTION'
      Size = 50
    end
    object crsFuncTSP_TYPE: TStringField
      FieldName = 'TSP_TYPE'
      Size = 50
    end
    object crsFuncPAY_MODE: TStringField
      FieldName = 'PAY_MODE'
      Size = 50
    end
    object crsFuncFEE_TYPE: TStringField
      FieldName = 'FEE_TYPE'
      Size = 50
    end
    object crsFuncFEE_TYPE_CAP: TStringField
      FieldName = 'FEE_TYPE_CAP'
      Size = 50
    end
    object crsFuncFUNC_TYPE: TStringField
      FieldName = 'FUNC_TYPE'
      Size = 50
    end
    object crsFuncSTART_WT: TFloatField
      FieldName = 'START_WT'
    end
    object crsFuncCLOSE_WT: TFloatField
      FieldName = 'CLOSE_WT'
    end
    object crsFuncCHECK_CNT: TIntegerField
      FieldName = 'CHECK_CNT'
    end
    object crsFuncCONTENT: TStringField
      FieldName = 'CONTENT'
      Size = 1000
    end
    object crsFuncREMARK: TStringField
      FieldName = 'REMARK'
      Size = 200
    end
    object crsFuncIS_DEFAULT: TIntegerField
      FieldName = 'IS_DEFAULT'
    end
    object crsFuncGROUP_CODE: TStringField
      FieldName = 'GROUP_CODE'
      Size = 50
    end
    object crsFuncSYS_ACCOUNT: TStringField
      FieldName = 'SYS_ACCOUNT'
      Size = 50
    end
    object crsFuncUPDATETIME: TStringField
      FieldName = 'UPDATETIME'
    end
    object crsFuncVERSION: TIntegerField
      FieldName = 'VERSION'
    end
    object crsFuncEMP_TYPE: TStringField
      FieldName = 'EMP_TYPE'
      Size = 50
    end
    object crsFuncTABLENAME: TStringField
      FieldName = 'TABLENAME'
      Size = 50
    end
    object crsFuncSTART_FEE: TFloatField
      FieldName = 'START_FEE'
    end
    object crsFuncCLOSE_FEE: TFloatField
      FieldName = 'CLOSE_FEE'
    end
    object crsFuncBUSI_TYPE: TStringField
      FieldName = 'BUSI_TYPE'
      Size = 50
    end
    object crsFuncPARAMETER: TStringField
      FieldName = 'PARAMETER'
      Size = 200
    end
    object crsFuncCONDITION: TStringField
      FieldName = 'CONDITION'
      Size = 500
    end
    object crsFuncSTART_COD: TFloatField
      FieldName = 'START_COD'
    end
    object crsFuncCLOSE_COD: TFloatField
      FieldName = 'CLOSE_COD'
    end
    object crsFuncSRC_CITY: TStringField
      FieldName = 'SRC_CITY'
      Size = 50
    end
    object crsFuncDST_CITY: TStringField
      FieldName = 'DST_CITY'
      Size = 50
    end
    object crsFuncEXP_COMP: TStringField
      FieldName = 'EXP_COMP'
      Size = 50
    end
    object crsFuncCARGO_TYPE: TStringField
      FieldName = 'CARGO_TYPE'
      Size = 50
    end
  end
  object crsFuncDis: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_company_ykgdis'
    Left = 220
    Top = 260
  end
  object crsInsFee: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'BAS_INS_FEE_SETTING'
    Left = 220
    Top = 340
  end
  object crsCargo: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_dict_detail'
    Left = 440
    Top = 30
  end
  object crsTspState: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_lookup'
    Left = 130
    Top = 100
  end
  object crsWkClass: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_work_class'
    Left = 320
    Top = 170
    object crsWkClassCLASS_ID: TStringField
      FieldName = 'CLASS_ID'
      Size = 50
    end
    object crsWkClassCLASS_NAME: TStringField
      FieldName = 'CLASS_NAME'
      Size = 50
    end
    object crsWkClassCLASS_TYPE: TStringField
      FieldName = 'CLASS_TYPE'
      Size = 50
    end
    object crsWkClassCOM_START: TStringField
      FieldName = 'COM_START'
      Size = 10
    end
    object crsWkClassCOM_CLOSE: TStringField
      FieldName = 'COM_CLOSE'
      Size = 10
    end
    object crsWkClassSAT_START: TStringField
      FieldName = 'SAT_START'
      Size = 10
    end
    object crsWkClassSAT_CLOSE: TStringField
      FieldName = 'SAT_CLOSE'
      Size = 10
    end
    object crsWkClassSUN_START: TStringField
      FieldName = 'SUN_START'
      Size = 10
    end
    object crsWkClassSUN_CLOSE: TStringField
      FieldName = 'SUN_CLOSE'
      Size = 10
    end
    object crsWkClassGROUP_CODE: TStringField
      FieldName = 'GROUP_CODE'
      Size = 50
    end
    object crsWkClassGROUP_NAME: TStringField
      FieldName = 'GROUP_NAME'
      Size = 50
    end
    object crsWkClassREMARK: TStringField
      FieldName = 'REMARK'
      Size = 200
    end
    object crsWkClassSYS_ACCOUNT: TStringField
      FieldName = 'SYS_ACCOUNT'
    end
    object crsWkClassUPDATETIME: TStringField
      FieldName = 'UPDATETIME'
    end
    object crsWkClassVERSION: TIntegerField
      FieldName = 'VERSION'
    end
    object crsWkClassNODE_NO: TStringField
      FieldName = 'NODE_NO'
      Size = 50
    end
    object crsWkClassRCV_LAST: TStringField
      FieldName = 'RCV_LAST'
      Size = 10
    end
    object crsWkClassCOM_START2: TStringField
      FieldName = 'COM_START2'
      Size = 10
    end
    object crsWkClassCOM_CLOSE2: TStringField
      FieldName = 'COM_CLOSE2'
      Size = 10
    end
    object crsWkClassCOM_START3: TStringField
      FieldName = 'COM_START3'
      Size = 10
    end
    object crsWkClassCOM_CLOSE3: TStringField
      FieldName = 'COM_CLOSE3'
      Size = 10
    end
    object crsWkClassCOM_START4: TStringField
      FieldName = 'COM_START4'
      Size = 10
    end
    object crsWkClassCOM_CLOSE4: TStringField
      FieldName = 'COM_CLOSE4'
      Size = 10
    end
    object crsWkClassCOM_START5: TStringField
      FieldName = 'COM_START5'
      Size = 10
    end
    object crsWkClassCOM_CLOSE5: TStringField
      FieldName = 'COM_CLOSE5'
      Size = 10
    end
    object crsWkClassDEPART_START: TStringField
      FieldName = 'DEPART_START'
      Size = 10
    end
    object crsWkClassDEPART_CLOSE: TStringField
      FieldName = 'DEPART_CLOSE'
      Size = 10
    end
    object crsWkClassDEPART_TIME: TStringField
      FieldName = 'DEPART_TIME'
      Size = 10
    end
  end
  object crsEmp: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    Left = 130
    Top = 180
  end
  object crsProblemType: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_dict_detail'
    Left = 440
    Top = 110
  end
  object crsProCloseType: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_dict_detail'
    Left = 440
    Top = 170
  end
  object crsPROTYPE: TClientRowSet
    Aggregates = <>
    CommandText = 'SELECT paramcap,dvalue FROM sys_dict_detail'
    AppServer = AppServer
    Left = 320
    Top = 235
    object StringField1: TStringField
      FieldName = 'PARAMCAP'
      Size = 50
    end
    object StringField2: TStringField
      FieldName = 'DVALUE'
      Size = 50
    end
  end
  object crsRoleModule: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_role_module'
    Left = 440
    Top = 340
    object crsRoleModuleID: TStringField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 50
    end
    object crsRoleModuleROLE_ID: TStringField
      FieldName = 'ROLE_ID'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsRoleModuleSYS_ACCOUNT: TStringField
      FieldName = 'SYS_ACCOUNT'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsRoleModuleMODULE_NAME: TStringField
      FieldName = 'MODULE_NAME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsRoleModuleMOUDULE_CAP: TStringField
      FieldName = 'MOUDULE_CAP'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsRoleModuleSYSTEM: TStringField
      FieldName = 'SYSTEM'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsRoleModuleVERSION: TIntegerField
      FieldName = 'VERSION'
      ProviderFlags = [pfInUpdate]
    end
    object crsRoleModuleMODULE_ID: TStringField
      FieldName = 'MODULE_ID'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsRoleModuleROLE_NAME: TStringField
      FieldName = 'ROLE_NAME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsRoleModuleGROUP_CODE: TStringField
      FieldName = 'GROUP_CODE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
  end
  object crsRight: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    Left = 440
    Top = 240
  end
  object crsUpdate: TClientRowSet
    Aggregates = <>
    AfterInsert = crsUpdateAfterInsert
    AppServer = AppServer
    TableName = 'sys_update'
    Left = 320
    Top = 340
    object crsUpdateID: TStringField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 50
    end
    object crsUpdateEXPRESSFILE: TBlobField
      FieldName = 'EXPRESSFILE'
      ProviderFlags = [pfInUpdate]
    end
    object crsUpdateEXPRESSTIME: TStringField
      FieldName = 'EXPRESSTIME'
      ProviderFlags = [pfInUpdate]
    end
  end
  object crsFormula1: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_FORMULA'
    Left = 40
    Top = 410
  end
  object crsFormula2: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_FORMULA'
    Left = 120
    Top = 410
  end
  object crsFormula3: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_FORMULA'
    Left = 200
    Top = 410
  end
  object crsFormula5: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_FORMULA'
    Left = 360
    Top = 410
  end
  object crsFormula4: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_FORMULA'
    Left = 280
    Top = 410
  end
  object crsFItems: TClientRowSet
    Aggregates = <>
    CommandText = 
      'select bill_no,cargo,weight,volume,distance,cod,cod_fee,fee,dis_' +
      'fee,adv_fee,inus_fee,CARGO_CNT,BLUETOOTH_WEIGHT,DECLARED_VALUE,C' +
      'ARGO_TYPE,fetch_node,disp_node,tran_fee,del_fee,load_fee,busines' +
      's_fee,rebate_fee,disp_fee,scan_fee,sms_fee,day_count,month_count' +
      ',fee_accno from tsp_order where 1=2'
    AppServer = AppServer
    TableName = 'tsp_order'
    Left = 440
    Top = 410
    object crsFItemsBILL_NO: TStringField
      DisplayLabel = #36816#21333#21495
      FieldName = 'BILL_NO'
      Size = 50
    end
    object crsFItemsFROM_AREA: TStringField
      DisplayLabel = #22987#21457#21306#22495
      FieldName = 'FETCH_NODE'
      Size = 50
    end
    object crsFItemsTO_AREA: TStringField
      DisplayLabel = #30446#30340#21306#22495
      FieldName = 'DISP_NODE'
      Size = 50
    end
    object crsFItemsCARGO_TYPE: TStringField
      DisplayLabel = #24555#36882#31867#22411
      FieldName = 'CARGO_TYPE'
      Size = 50
    end
    object crsFItemsCARGO: TStringField
      DisplayLabel = #25176#36816#29289
      FieldName = 'CARGO'
      Size = 200
    end
    object crsFItemsWEIGHT: TFloatField
      Tag = 1
      DisplayLabel = #37325#37327
      FieldName = 'WEIGHT'
    end
    object crsFItemsBLUETOOTH_WEIGHT: TFloatField
      Tag = 1
      DisplayLabel = #34013#29273#37325#37327
      FieldName = 'BLUETOOTH_WEIGHT'
    end
    object crsFItemsCOD: TFloatField
      Tag = 1
      DisplayLabel = #20195#25910#36135#27454
      FieldName = 'COD'
    end
    object crsFItemsCOD_FEE: TFloatField
      Tag = 1
      DisplayLabel = #36135#27454#25163#32493#36153
      FieldName = 'COD_FEE'
    end
    object crsFItemsDECLARED_VALUE: TFloatField
      Tag = 1
      DisplayLabel = #22768#26126#20215#20540
      FieldName = 'DECLARED_VALUE'
    end
    object crsFItemsINUS_FEE: TFloatField
      Tag = 1
      DisplayLabel = #20445#20215#36153
      FieldName = 'INUS_FEE'
    end
    object crsFItemsCARGO_CNT: TIntegerField
      Tag = 1
      DisplayLabel = #20214#25968
      FieldName = 'CARGO_CNT'
    end
    object crsFItemsFEE: TFloatField
      Tag = 1
      DisplayLabel = #26631#20934#36816#36153
      FieldName = 'FEE'
    end
    object crsFItemsDIS_FEE: TFloatField
      Tag = 1
      DisplayLabel = #25240#21518#36816#36153
      FieldName = 'DIS_FEE'
    end
    object crsFItemsADV_FEE: TFloatField
      Tag = 1
      DisplayLabel = #20854#23427#36153
      FieldName = 'ADV_FEE'
    end
    object crsFItemsTRAN_FEE: TFloatField
      DisplayLabel = #20013#36716#36816
      FieldName = 'TRAN_FEE'
    end
    object crsFItemsDEL_FEE: TFloatField
      DisplayLabel = #36865#36135#36153
      FieldName = 'DEL_FEE'
    end
    object crsFItemsLOAD_FEE: TFloatField
      DisplayLabel = #35013#21368#36153
      FieldName = 'LOAD_FEE'
    end
    object crsFItemsBUSINESS_FEE: TFloatField
      DisplayLabel = #19994#21153#36153
      FieldName = 'BUSINESS_FEE'
    end
    object crsFItemsREBATE_FEE: TFloatField
      DisplayLabel = #22238#27454
      FieldName = 'REBATE_FEE'
    end
    object crsFItemsDISP_FEE: TFloatField
      DisplayLabel = #27966#20214#36153
      FieldName = 'DISP_FEE'
    end
    object crsFItemsSCAN_FEE: TFloatField
      DisplayLabel = #25195#25551#36153
      FieldName = 'SCAN_FEE'
    end
    object crsFItemsSMS_FEE: TFloatField
      DisplayLabel = #30701#20449#36153
      FieldName = 'SMS_FEE'
    end
    object crsFItemsDAY_COUNT: TLargeintField
      DisplayLabel = #26085#27966#20214#37327
      FieldName = 'DAY_COUNT'
    end
    object crsFItemsMONTH_COUNT: TLargeintField
      DisplayLabel = #26376#27966#20214#37327
      FieldName = 'MONTH_COUNT'
    end
    object crsFItemsVOLUME: TStringField
      DisplayLabel = #20307#31215
      FieldName = 'VOLUME'
      Size = 50
    end
    object crsFItemsFEE_ACCNO: TStringField
      DisplayLabel = #26376#32467#36134#21495
      FieldName = 'FEE_ACCNO'
      Size = 50
    end
  end
  object crsSMSType: TClientRowSet
    Aggregates = <>
    CommandText = 'select * from sys_dict_detail where 1=2'
    AppServer = AppServer
    Left = 120
    Top = 260
    object crsSMSTypePARAMCAP: TStringField
      FieldName = 'PARAMCAP'
      Size = 50
    end
    object crsSMSTypeDVALUE: TStringField
      FieldName = 'DVALUE'
      Size = 2000
    end
    object crsSMSTypePARAMCODE: TStringField
      FieldName = 'PARAMCODE'
    end
  end
  object crsExpress: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_dict_detail'
    Left = 120
    Top = 340
  end
  object crsTmpl: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'BAS_IMPORT_TEMPLATE'
    Left = 530
    Top = 30
    object crsTmplID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object crsTmplTEMP_NAME: TStringField
      FieldName = 'TEMP_NAME'
    end
    object crsTmplTEMP_TYPE: TStringField
      FieldName = 'TEMP_TYPE'
    end
  end
  object crsTemp: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    Left = 530
    Top = 110
  end
  object crsMatchDistance: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    Left = 530
    Top = 180
  end
  object crsnodeType: TClientRowSet
    Aggregates = <>
    CommandText = 'SELECT paramcap,dvalue FROM sys_dict_detail'
    AppServer = AppServer
    Left = 530
    Top = 250
    object crsnodeTypePARAMCAP: TStringField
      FieldName = 'PARAMCAP'
      Size = 50
    end
    object crsnodeTypeDVALUE: TStringField
      FieldName = 'DVALUE'
      Size = 2000
    end
  end
  object crsFormula: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'BAS_FORMULA'
    Left = 520
    Top = 410
    object crsFormulaID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object crsFormulaFORM_NAME: TStringField
      FieldName = 'FORM_NAME'
      Size = 100
    end
  end
  object crsAreas2: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_areas_setting '
    Left = 129
    Top = 479
    object crsAreas2ID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object crsAreas2PARENT_ID: TStringField
      FieldName = 'PARENT_ID'
      Size = 50
    end
    object crsAreas2LEVEL_TYPE: TStringField
      FieldName = 'LEVEL_TYPE'
      Size = 50
    end
    object crsAreas2NAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object crsAreas2LNG: TStringField
      FieldName = 'LNG'
      Size = 50
    end
    object crsAreas2LAT: TStringField
      FieldName = 'LAT'
      Size = 50
    end
  end
  object crsAreas1: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_areas_setting   '
    Left = 39
    Top = 479
    object crsAreas1ID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object crsAreas1PARENT_ID: TStringField
      FieldName = 'PARENT_ID'
      Size = 50
    end
    object crsAreas1LEVEL_TYPE: TStringField
      FieldName = 'LEVEL_TYPE'
      Size = 50
    end
    object crsAreas1NAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object crsAreas1LNG: TStringField
      FieldName = 'LNG'
      Size = 50
    end
    object crsAreas1LAT: TStringField
      FieldName = 'LAT'
      Size = 50
    end
  end
  object crsAreas3: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_areas_setting '
    Left = 229
    Top = 479
    object crsAreas3ID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object crsAreas3PARENT_ID: TStringField
      FieldName = 'PARENT_ID'
      Size = 50
    end
    object crsAreas3LEVEL_TYPE: TStringField
      FieldName = 'LEVEL_TYPE'
      Size = 50
    end
    object crsAreas3NAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object crsAreas3LNG: TStringField
      FieldName = 'LNG'
      Size = 50
    end
    object crsAreas3LAT: TStringField
      FieldName = 'LAT'
      Size = 50
    end
  end
  object crsAreas4: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'bas_areas_setting '
    Left = 319
    Top = 479
    object crsAreas4ID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object crsAreas4PARENT_ID: TStringField
      FieldName = 'PARENT_ID'
      Size = 50
    end
    object crsAreas4LEVEL_TYPE: TStringField
      FieldName = 'LEVEL_TYPE'
      Size = 50
    end
    object crsAreas4NAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object crsAreas4LNG: TStringField
      FieldName = 'LNG'
      Size = 50
    end
    object crsAreas4LAT: TStringField
      FieldName = 'LAT'
      Size = 50
    end
  end
  object crsPay: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'BAS_PAY    '
    Left = 430
    Top = 480
    object crsPayID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object crsPayGROUP_CODE: TStringField
      FieldName = 'GROUP_CODE'
    end
    object crsPayPER_MONTH: TSmallintField
      FieldName = 'PER_MONTH'
    end
    object crsPayDURATION: TStringField
      FieldName = 'DURATION'
    end
    object crsPayDESCRIPTION: TStringField
      FieldName = 'DESCRIPTION'
      Size = 50
    end
    object crsPayAMOUNT: TIntegerField
      FieldName = 'AMOUNT'
    end
    object crsPayWX_URL: TStringField
      FieldName = 'WX_URL'
      Size = 200
    end
    object crsPayPAY_TYPE: TSmallintField
      FieldName = 'PAY_TYPE'
    end
    object crsPayALIPAY_URL: TStringField
      FieldName = 'ALIPAY_URL'
      Size = 200
    end
  end
  object crsBillRule: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'BAS_BILLRULE_SETTING'
    Left = 520
    Top = 470
    object crsBillRuleID: TStringField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 50
    end
    object crsBillRuleTYPECODE: TStringField
      Tag = 1
      DisplayLabel = #21495#27573#20195#30721
      FieldName = 'TYPECODE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsBillRuleNAME: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'NAME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsBillRuleBILL_LONG: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = #21333#21495#38271#24230
      FieldName = 'BILL_LONG'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleBEGIN_NO: TStringField
      DisplayLabel = #24320#22987#21495#30721
      FieldName = 'BEGIN_NO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsBillRuleGROUP_CODE: TStringField
      FieldName = 'GROUP_CODE'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleCRT_DT: TStringField
      DisplayLabel = #21019#24314#26102#38388
      FieldName = 'CRT_DT'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleCRT_BY: TStringField
      DisplayLabel = #21019#24314#20154#21592
      FieldName = 'CRT_BY'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleUPDATE_DT: TStringField
      DisplayLabel = #26356#26032#26102#38388
      FieldName = 'UPDATE_DT'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleVERSION: TSmallintField
      DisplayLabel = #29256#26412#21495
      FieldName = 'VERSION'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleCURRENT_NO: TStringField
      DisplayLabel = #24403#21069#24207#21015#21495
      FieldName = 'CURRENT_NO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsBillRuleBILL_PRE: TStringField
      DisplayLabel = #21333#21495#21069#36749
      FieldName = 'BILL_PRE'
    end
  end
  object crsLanguage: TClientRowSet
    Aggregates = <>
    CommandText = 
      'select a.*,b.name,b.caption from sys_language_detail a left join' +
      ' sys_language b on a.m_id=b.id and b.type=1'
    AppServer = AppServer
    Left = 520
    Top = 340
    object crsLanguageID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object crsLanguageM_ID: TStringField
      FieldName = 'M_ID'
    end
    object crsLanguageLABEL_NAME: TStringField
      FieldName = 'LABEL_NAME'
      Size = 50
    end
    object crsLanguageLANGUAGE_1: TStringField
      FieldName = 'LANGUAGE_1'
      Size = 500
    end
    object crsLanguageLANGUAGE_2: TStringField
      FieldName = 'LANGUAGE_2'
      Size = 500
    end
    object crsLanguageLANGUAGE_3: TStringField
      FieldName = 'LANGUAGE_3'
      Size = 500
    end
    object crsLanguageLANGUAGE_4: TStringField
      FieldName = 'LANGUAGE_4'
      Size = 500
    end
    object crsLanguageLANGUAGE_5: TStringField
      FieldName = 'LANGUAGE_5'
      Size = 500
    end
    object crsLanguageLANGUAGE_6: TStringField
      FieldName = 'LANGUAGE_6'
      Size = 500
    end
    object crsLanguageLANGUAGE_7: TStringField
      FieldName = 'LANGUAGE_7'
      Size = 500
    end
    object crsLanguageLANGUAGE_8: TStringField
      FieldName = 'LANGUAGE_8'
      Size = 500
    end
    object crsLanguageLANGUAGE_9: TStringField
      FieldName = 'LANGUAGE_9'
      Size = 500
    end
    object crsLanguageLANGUAGE_10: TStringField
      FieldName = 'LANGUAGE_10'
      Size = 500
    end
    object crsLanguageUPDATEBY: TStringField
      FieldName = 'UPDATEBY'
      Size = 50
    end
    object crsLanguageUPDATETIME: TStringField
      FieldName = 'UPDATETIME'
      Size = 50
    end
    object crsLanguageNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object crsLanguageCAPTION: TStringField
      FieldName = 'CAPTION'
      Size = 50
    end
  end
  object crsRoleNode: TClientRowSet
    Aggregates = <>
    AppServer = AppServer
    TableName = 'sys_role_node  '
    Left = 520
    Top = 540
    object crsRoleNodeID: TStringField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 50
    end
    object crsRoleNodeUSER_ID: TStringField
      FieldName = 'USER_ID'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsRoleNodeNODE_NO: TStringField
      FieldName = 'NODE_NO'
      Size = 50
    end
  end
end
